home *** CD-ROM | disk | FTP | other *** search
/ Painter Bear's Language Bridge — Italian / Bridge_ponte_itialian.iso / pc / helpers / open.dxr / 00016_old foreign question.txt < prev    next >
Encoding:
Text File  |  2001-02-22  |  1.7 KB  |  34 lines
  1. on askForeignQuestion sndLst
  2.   global gLangSelect,gWhichQuest,gLangName,gQuestion,gAnswer,gCat, gLangDirect,gFileDelimiter,gSndPath,gAnsSndLst,gCatTitle
  3.   --  if gCatTitle = "allw" or gCatTitle = "all" then
  4.   --    findgCat
  5.   --  end if
  6.   set  gCat = "tphr"
  7.   set gWhichQuest = 7
  8.   set the itemDelimiter to "*"
  9.   set aWord = item 3 of line gWhichQuest of field (gLangSelect&&gCat) of castLib (gLangSelect&"Cst")
  10.   if gCat = "tphr" and gWhichQuest = 109 then
  11.     set gAnswer = ("How do you say 'notebook' in "&gLangName&"?")
  12.   else if gCat = "tphr" and gWhichQuest = 7 then
  13.     set gAnswer = ("My "&gLangName&" is not very good.")
  14.   else
  15.     set gAnswer = item 2 of line gWhichQuest of field ("e "&gCat)
  16.   end if
  17.   if gLangSelect = "f" then
  18.     set gQuestion = ("Comment dit-on "&line 1 of field "quote"&aWord&line 1 of field "quote"&" en anglais?")
  19.   else if gLangSelect = "s" then
  20.     set gQuestion = ("¬øC√≥mo se dice "&line 1 of field "quote"&aWord&line 1 of field "quote"&" en ingl√©s?")
  21.   else if gLangSelect = "I" then
  22.     set gQuestion = ("Cos'√® l'inglese per "&line 1 of field "quote"&aWord&line 1 of field "quote"&"?")
  23.   else if gLangSelect = "g" then
  24.     set gQuestion = ("Was ist "&line 1 of field "quote"&aWord&line 1 of field "quote"&" auf englisch?")
  25.   end if
  26.   set engPath = (gSndPath&gLangSelect&gFileDelimiter)
  27.   add(sndLst,(engPath&gLangSelect&"quest.aif"))
  28.   add(sndLst,(engPath&gCat&gFileDelimiter&gCat&gWhichQuest&".aif"))
  29.   if gLangSelect = "g" or gLangSelect = "f" or gLangSelect = "s" then
  30.     add(sndLst,(engPath&gLangSelect&"quest2.aif"))
  31.   end if
  32.   add(gAnsSndLst,(gSndPath&"e"&gFileDelimiter&gCat&gFileDelimiter&gCat&gWhichQuest&".aif"))
  33.   return sndLst
  34. end askForeignQuestion